unit Default;

interface

uses
  GlobalRecordsAndEnums;

type
  TDefault = class
    private
    public
      NormalAmarrDecryptorID: Integer;
      NormalCaldariDecryptorID: Integer;
      NormalGallenteDecryptorID: Integer;
      NormalMinmatarDecryptorID: Integer;
      NormalBPCRuns: Integer;
      NormalUseMaxRunsBPC: Boolean;
      NormalMetaItemPrice: Double;
      NormalMetaItemLevel: Integer;
      ShipAmarrDecryptorID: Integer;
      ShipCaldariDecryptorID: Integer;
      ShipGallenteDecryptorID: Integer;
      ShipMinmatarDecryptorID: Integer;
      ShipBPCRuns: Integer;
      ShipUseMaxRunsBPC: Boolean;
      ShipMetaItemPrice: Double;
      ShipMetaItemLevel: Integer;
      RigAmarrDecryptorID: Integer;
      RigCaldariDecryptorID: Integer;
      RigGallenteDecryptorID: Integer;
      RigMinmatarDecryptorID: Integer;
      RigBPCRuns: Integer;
      RigUseMaxRunsBPC: Boolean;
      RigMetaItemPrice: Double;
      RigMetaItemLevel: Integer;

      constructor Create;
      procedure Load(def: SDefault);
      function Save: SDefault;
  end;

implementation

constructor TDefault.Create;
begin
  Inherited Create;
  NormalAmarrDecryptorID := -1;
  NormalCaldariDecryptorID := -1;
  NormalGallenteDecryptorID := -1;
  NormalMinmatarDecryptorID := -1;
  NormalBPCRuns := 300;
  NormalUseMaxRunsBPC := true;
  NormalMetaItemPrice := 0;
  NormalMetaItemLevel := 0;
  ShipAmarrDecryptorID := -1;
  ShipCaldariDecryptorID := -1;
  ShipGallenteDecryptorID := -1;
  ShipMinmatarDecryptorID := -1;
  ShipBPCRuns := 1;
  ShipUseMaxRunsBPC := false;
  ShipMetaItemPrice := 0;
  ShipMetaItemLevel := 0;
  RigAmarrDecryptorID := -1;
  RigCaldariDecryptorID := -1;
  RigGallenteDecryptorID := -1;
  RigMinmatarDecryptorID := -1;
  RigBPCRuns := 1000;
  RigUseMaxRunsBPC := true;
  RigMetaItemPrice := 0;
  RigMetaItemLevel := 0;
end;

procedure TDefault.Load(def: SDefault);
begin
  Inherited Create;
  NormalAmarrDecryptorID := def.NormalAmarrDecryptorID;
  NormalCaldariDecryptorID := def.NormalCaldariDecryptorID;
  NormalGallenteDecryptorID := def.NormalGallenteDecryptorID;
  NormalMinmatarDecryptorID := def.NormalMinmatarDecryptorID;
  NormalBPCRuns := def.NormalBPCRuns;
  NormalUseMaxRunsBPC := def.NormalUseMaxRunsBPC;
  NormalMetaItemPrice := def.NormalMetaItemPrice;
  NormalMetaItemLevel := def.NormalMetaItemLevel;
  ShipAmarrDecryptorID := def.ShipAmarrDecryptorID;
  ShipCaldariDecryptorID := def.ShipCaldariDecryptorID;
  ShipGallenteDecryptorID := def.ShipGallenteDecryptorID;
  ShipMinmatarDecryptorID := def.ShipMinmatarDecryptorID;
  ShipBPCRuns := def.ShipBPCRuns;
  ShipUseMaxRunsBPC := def.ShipUseMaxRunsBPC;
  ShipMetaItemPrice := def.ShipMetaItemPrice;
  ShipMetaItemLevel := def.ShipMetaItemLevel;
  RigAmarrDecryptorID := def.RigAmarrDecryptorID;
  RigCaldariDecryptorID := def.RigCaldariDecryptorID;
  RigGallenteDecryptorID := def.RigGallenteDecryptorID;
  RigMinmatarDecryptorID := def.RigMinmatarDecryptorID;
  RigBPCRuns := def.RigBPCRuns;
  RigUseMaxRunsBPC := def.RigUseMaxRunsBPC;
  RigMetaItemPrice := def.RigMetaItemPrice;
  RigMetaItemLevel := def.RigMetaItemLevel;
end;

function TDefault.Save: SDefault;
begin
  Inherited Create;
  result.NormalAmarrDecryptorID := NormalAmarrDecryptorID;
  result.NormalCaldariDecryptorID := NormalCaldariDecryptorID ;
  result.NormalGallenteDecryptorID := NormalGallenteDecryptorID;
  result.NormalMinmatarDecryptorID := NormalMinmatarDecryptorID;
  result.NormalBPCRuns := NormalBPCRuns;
  result.NormalUseMaxRunsBPC := NormalUseMaxRunsBPC;
  result.NormalMetaItemPrice := NormalMetaItemPrice;
  result.NormalMetaItemLevel := NormalMetaItemLevel;
  result.ShipAmarrDecryptorID := ShipAmarrDecryptorID;
  result.ShipCaldariDecryptorID := ShipCaldariDecryptorID ;
  result.ShipGallenteDecryptorID := ShipGallenteDecryptorID;
  result.ShipMinmatarDecryptorID := ShipMinmatarDecryptorID;
  result.ShipBPCRuns := ShipBPCRuns;
  result.ShipUseMaxRunsBPC := ShipUseMaxRunsBPC;
  result.ShipMetaItemPrice := ShipMetaItemPrice;
  result.ShipMetaItemLevel := ShipMetaItemLevel;
  result.RigAmarrDecryptorID := RigAmarrDecryptorID;
  result.RigCaldariDecryptorID := RigCaldariDecryptorID ;
  result.RigGallenteDecryptorID := RigGallenteDecryptorID;
  result.RigMinmatarDecryptorID := RigMinmatarDecryptorID;
  result.RigBPCRuns := RigBPCRuns;
  result.RigUseMaxRunsBPC := RigUseMaxRunsBPC;
  result.RigMetaItemPrice := RigMetaItemPrice;
  result.RigMetaItemLevel := RigMetaItemLevel;
end;

end.
